home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / BEEP.s < prev    next >
Text File  |  1996-09-24  |  493b  |  44 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. duree    equ    $800F5
  6. freq    equ    $800FA
  7.  
  8.  
  9.     GOSBVL    $0679B
  10.     LCHEX    $003E8
  11.     D0=(5)    $800F5
  12.     DAT0=C    A
  13.     LCHEX    $00000
  14.     D0=(5)    $800FA
  15.     DAT0=C    A
  16. LAB0
  17.     LCHEX    $003E8
  18.     D0=(5)    $800FA
  19.     A=DAT0    A
  20.     ?C>A    A
  21.     GOYES    LAB1
  22.     GOTO    LAB2
  23. LAB1
  24.     D0=(5)    $800FA
  25.     C=DAT0    A
  26.     D=C    A
  27.     D0=(5)    $800F5
  28.     C=DAT0    A
  29.     GOSBVL    $017A6
  30.     GOSBVL    $067D2
  31.     LAHEX    $800F5
  32.     D0=A
  33.     LCHEX    $000C8
  34.     D0=(5)    $800FA
  35.     A=DAT0    A
  36.     C=C+A    A
  37.     DAT0=C    A
  38.     GOTO    LAB0
  39. LAB2
  40.     GOSBVL    $067D2
  41.     A=DAT0    A
  42.     D0=D0+    5
  43.     PC=(A)
  44. Fin